(in-package #:lilu-desk)

(defun select-default-debugger ()
  (multiple-value-bind (sel match-p)
      (dynamic-menu "select a debugger"
                    (list-all-debuggers :installed-p t)
                    :only-match-p t)
    (when match-p
      (setf *default-debugger* (lilu-app:find-debugger sel)))))

;;;
;;;
;;;

(defun select-default-emacs-theme ()
  (multiple-value-bind (sel match-p)
      (dynamic-menu "select an emacs theme"
                    (emacs-get-themes)
                    :only-match-p t)
    (when match-p
      (setf *default-emacs-theme* sel))))

(defun select-emacs-theme ()
  (multiple-value-bind (sel match-p)
      (dynamic-menu "select an emacs theme"
                    (emacs-get-themes)
                    :only-match-p t)
    (when match-p
      (emacs-load-theme sel))))

